home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / retinasource.lha / RBO_SCode.lha / Include / exec / libraries.i < prev    next >
Encoding:
Text File  |  1993-05-03  |  1004 b   |  63 lines
  1.     IFND    EXEC_LIBRARIES_I
  2. EXEC_LIBRARIES_I    =    1
  3.     IFND    EXEC_NODES_I
  4.     INCLUDE    exec/nodes.i
  5.     ENDC
  6. LIB_VECTSIZE    =    6
  7. LIB_RESERVED    =    4
  8. LIB_BASE    =    $FFFFFFFA
  9. LIB_USERDEF    =    LIB_BASE-[LIB_RESERVED*LIB_VECTSIZE]
  10. LIB_NONSTD    =    LIB_USERDEF
  11. LIBINIT    MACRO
  12.     IFC    '\1',''
  13. COUNT_LIB    SET    LIB_USERDEF
  14.     ELSE
  15. COUNT_LIB    SET    \1
  16.     ENDC
  17.     ENDM
  18. LIBDEF    MACRO
  19. \1    =    COUNT_LIB
  20. COUNT_LIB    SET    COUNT_LIB-LIB_VECTSIZE
  21.     ENDM
  22.     LIBINIT    LIB_BASE
  23.     LIBDEF    LIB_OPEN
  24.     LIBDEF    LIB_CLOSE
  25.     LIBDEF    LIB_EXPUNGE
  26.     LIBDEF    LIB_EXTFUNC
  27.     RSRESET
  28. LIB        RS.B    LN_SIZE
  29. LIB_FLAGS    RS.B    1
  30. LIB_pad        RS.B    1
  31. LIB_NEGSIZE    RS.W    1
  32. LIB_POSSIZE    RS.W    1
  33. LIB_VERSION    RS.W    1
  34. LIB_REVISION    RS.W    1
  35. LIB_IDSTRING    RS.L    1
  36. LIB_SUM        RS.L    1
  37. LIB_OPENCNT    RS.W    1
  38. LIB_SIZE    RS.W    0
  39. LIBB_SUMMING    =    0
  40. LIBF_SUMMING    =    1<<0
  41. LIBB_CHANGED    =    1
  42. LIBF_CHANGED    =    1<<1
  43. LIBB_SUMUSED    =    2
  44. LIBF_SUMUSED    =    1<<2
  45. LIBB_DELEXP    =    3
  46. LIBF_DELEXP    =    1<<3
  47. CALLLIB    MACRO
  48.     IFGT    NARG-1
  49.     FAIL    !!!
  50.     ENDC
  51.     JSR    \1(A6)
  52.     ENDM
  53. LINKLIB    MACRO
  54.     IFGT    NARG-2
  55.     FAIL    !!!
  56.     ENDC
  57.     MOVE.L    A6,-(SP)
  58.     MOVE.L    \2,A6
  59.     CALLLIB    \1
  60.     MOVE.L    (SP)+,A6
  61.     ENDM
  62.     ENDC
  63.